Imports System
Imports System.Data
Imports Telerik.Web.UI
Imports Quasar.Vigia.Ivc.Bll
Imports System.Data.SqlClient

Partial Class Anexos_FrmIngresarMedicamento
    Inherits System.Web.UI.Page

    'Protected WithEvents ddlMedicamentos As Global.System.Web.UI.WebControls.DropDownList
    'Protected txtMarca As Global.System.Web.UI.WebControls.TextBox
    'Protected txtPresentacion As Global.System.Web.UI.WebControls.TextBox


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            CargarListaMedicamentos()
        End If
    End Sub

    Private Sub CargarListaMedicamentos()
        Dim ds As New DataSet
        Dim coleccionParametros As New Collection

        ds = clsBitacora.GetSelect("spGetNombresMedicamentos", coleccionParametros, Session, 10086, False)

        If ds IsNot Nothing AndAlso ds.Tables.Count > 0 Then
            Me.ddlMedicamentos.DataSource = ds.Tables(0)
            Me.ddlMedicamentos.DataTextField = "NombreProducto"
            Me.ddlMedicamentos.DataValueField = "idtblMedicamentosMece2024"
            Me.ddlMedicamentos.DataBind()
        End If
    End Sub

    Protected Sub ddlMedicamentos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlMedicamentos.SelectedIndexChanged
        Dim ds As New DataSet
        Dim coleccionParametros As New Collection

        ' Obtener el ID del medicamento seleccionado
        Dim idSeleccionado As Integer = Convert.ToInt32(Me.ddlMedicamentos.SelectedValue)

        ' Agregar el parámetro con el tipo correcto
        ' coleccionParametros.Add(New CmdParametro("@IdMedicamento", SqlDbType.Int, idSeleccionado, ParameterDirection.Input))

        coleccionParametros.Add(New CmdParametro("@IdMedicamento", idSeleccionado, SqlDbType.Int, False))


        ds = clsBitacora.GetSelect("spGetDetallesMedicamento", coleccionParametros, Session, 10086, False)

        If ds IsNot Nothing AndAlso ds.Tables.Count > 0 Then
            Me.txtMarca.Text = ds.Tables(0).Rows(0)("Marca").ToString()
            Me.txtPresentacion.Text = ds.Tables(0).Rows(0)("PresentacionComercial").ToString()
            Me.txtRegistroInvima.Text = ds.Tables(0).Rows(0)("RegistroInvima").ToString()
            Me.txtCantidad.Text = ds.Tables(0).Rows(0)("Cantidad").ToString()
            Me.txtUnidadMedida.Text = ds.Tables(0).Rows(0)("UnidadMedida").ToString()
            Me.txtFormaFarmaceutica.Text = ds.Tables(0).Rows(0)("FormaFarmaceutica").ToString()

        End If
    End Sub
End Class